home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 19
/
Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso
/
Aminet
/
gfx
/
edit
/
WF_Base.lha
/
WF-Base
/
Wildfire
/
Macros
/
requester.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-01-12
|
616b
|
30 lines
/*
------------------------------------------------------------
requester.rexx
This script demonstrates the purpose of "m_request"-command
Copyright ©1996 WK-Artworks
------------------------------------------------------------
*/
if ~show('P','Wildfire') then do
say " Error: The Wildfire-program must be started before executing this script."
exit
end
address 'Wildfire'
options results
m_request "Do you really wan't to continue this stupid operation ?"
tt=result
if tt=1 then do
m_message "This was the better choice."
exit
end
do loop=1 to 10
msg="Message " || loop || " of 10"
m_message msg
end